' Numerus.ibas
{CREATORID "LDNU"}
{VERSION "2.2"}
{RESOURCEFILE "Numerus.rsrc"}

DIM A(33)
DIM A$(33)

CONST A(27)=1
CONST A(28)=5
CONST A(29)=10
CONST A(30)=50
CONST A(31)=100
CONST A(32)=500
CONST A(33)=1000
CONST A$(27)="I"
CONST A$(28)="V"
CONST A$(29)="X"
CONST A$(30)="L"
CONST A$(31)="C"
CONST A$(32)="D"
CONST A$(33)="M"

BEGIN
   IF E=0 GOSUB _LaunchNumerus
   IF E=34 GOSUB _SetLayout
   CHAIN "Numerus2.ibas"
END

_SetLayout:
   G=NOTICEBOX(31)
   IF G=1 THEN
      UPDATEPOS #2,26,90
      UPDATEPOS #6,98,90
      UPDATEPOS #5,62,54
      UPDATEPOS #7,98,54
      UPDATEPOS #3,26,54
      UPDATEPOS #4,62,90
      UPDATEPOS #2,26,90
   ELSE
      UPDATEPOS #2,98,90
      UPDATEPOS #4,26,90
      UPDATEPOS #3,62,90
      UPDATEPOS #7,26,54
      UPDATEPOS #5,98,54
      UPDATEPOS #6,62,54
      UPDATEPOS #2,98,90
   ENDIF
RETURN

_DrawForm:
   Z=SCREENMODES
   IF Z<3 THEN SCREEN 0
   ELSE SCREEN 3
   ENDIF
   Z=COLOR(0)
   W=COLOR(1)
   SETFONT 7
   BUTTON #1,"I",26,126,32,32
   IF G=1 THEN
      BUTTON #2,"V",26,90,32,32
      BUTTON #3,"X",26,54,32,32
      BUTTON #4,"L",62,90,32,32
      BUTTON #5,"C",62,54,32,32
      BUTTON #6,"D",98,90,32,32
      BUTTON #7,"M",98,54,32,32
   ELSE
      BUTTON #2,"V",98,90,32,32
      BUTTON #3,"X",62,90,32,32
      BUTTON #4,"L",26,90,32,32
      BUTTON #5,"C",98,54,32,32
      BUTTON #6,"D",62,54,32,32
      BUTTON #7,"M",26,54,32,32
   ENDIF
   SETFONT 2
   BUTTON #11,"+",134,135,24,23
   BUTTON #12,"",134,108,24,23
   BUTTON #13,"",134,81,24,23
   BUTTON #14,"/",134,54,24,23
   BUTTON #15,"=",62,126,68,32
   SETFONT 0
   BUTTON #21,"MC",2,54,20,17
   BUTTON #22,"MR",2,75,20,17
   BUTTON #23,"M+",2,96,20,17
   BUTTON #24,"CE",2,118,20,18
   BUTTON #25,"C",2,140,20,18
   BUTTON #31,"$",149,1,10,10
   SETFONT 1
   BUTTON #32,"i",136,1,10,10
   SETFONT 0
   BUTTON #33,"Help",107,1,26,10
   BUTTON #34,"Options",66,1,38,10
   LABEL #41,"",6,19
   SETFONT 1
   LABEL #42,"0",65,20
   LABEL #43,"",6,34
   COLOR W
   BOX 1,17 TO 159,51
   BOX 2,18 TO 158,50
   LINE 3,32  TO 157,32
   LINE 3,33  TO 157,33
RETURN

_LoadPrefs:
   K=LOADPREF(#1)
   L=LOADPREF(#2)
   M=LOADPREF(#3)
   Q=LOADPREF(#4)
   O=LOADPREF(#5)
   F=LOADPREF(#6)
   G=LOADPREF(#7)
   H=LOADPREF(#8)
   F=MAX(F,1)
   G=MAX(G,1)
   H=MAX(H,1)
   IF K=3 IF M=-1 LET M=0
RETURN

_LaunchNumerus:
   GOSUB _LoadPrefs
   GOSUB _DrawForm
   IF O<>0 CHAIN "Numerus3.ibas"
   F=1 : K=1 : M=-1 : O=15 
RETURN